/*
 * H.cxx
 *
 *  Created on: 11:51:56 AM Nov 26, 2012
 *      Author: Pallab
 * "I have not failed, I have just found 10000 ways that won't work.
 */

#include <iostream>
#include <algorithm>
#include <vector>
#include <sstream>
#include <fstream>
#include <string>
#include <list>
#include <map>
#include <set>
#include <queue>
#include <deque>
#include <numeric>
#include <stack>
#include <functional>
#include <bitset>
#include <iomanip>

#include <ctime>
#include <cassert>
#include <cstdio>
#include <cmath>
#include <cstring>
#include <climits>
#include <cstring>
#include <cstdlib>

using namespace std;

#define foR(i1,st,ed) for(int i1 = st , j1 = ed ; i1 < j1 ; ++i1 )
#define fo(i1,ed) foR( i1 , 0 , ed )
#define foE(i1,st,ed) foR( i1, st, ed+1 )
#define foit(i, x) for (typeof((x).begin()) i = (x).begin(); i != (x).end(); i++)
#define bip system("pause")
#define Int long long
#define pb push_back
#define SZ(X) (int)(X).size()
#define LN(X) (int)(X).length()
#define mk make_pair
#define SET( ARRAY , VALUE ) memset( ARRAY , VALUE , sizeof(ARRAY) )
#define line puts("")

inline void wait(double seconds) {
	double endtime = clock() + (seconds * CLOCKS_PER_SEC);
	while (clock() < endtime) {
		;
	}
}
template<class T>
inline T fastIn() {
	register char c = 0;
	register T a = 0;
	bool neg = false;
	while (c < 33)
		c = getchar();
	while (c > 33) {
		if (c == '-') {
			neg = true;
		} else {
			a = (a * 10) + (c - '0');
		}
		c = getchar();
	}
	return neg ? -a : a;
}
string S;
int L;
inline void read() {
	cin >> S;
	L = LN(S);
}
#if defined( xerxes_pc )
const int MX = 100;
#else
const int MX =5002;
#endif

int dp1[MX][MX];
inline int f(int l, int r) {
	if (l == r)
		return 1;
	if (l > r)
		return 1;
	int &d = dp1[l][r];
	if (d != -1)
		return d;
	d = 0;
	if (S[l] == S[r]) {
		d = f(l + 1, r - 1);
	}
	return d;
}

int dp2[MX][MX];
inline int go(int l, int r) {
	if (l > r)
		return 0;
	int &d = dp2[l][r];
	if(d!=-1)return d;
	d=0;
	if (f(l, r))
		++d;
	d += go(l + 1, r);
	d += go(l, r - 1);
	d -= go(l + 1, r - 1);

	return d;
}
inline void proc() {
	SET(dp1, -1);
	SET(dp2, -1);

	int q = fastIn<int>();
	while (q--) {
		int l = fastIn<int>() - 1, r = fastIn<int>() - 1;
		//printf("%d %d %d %d\n", l + 1, r + 1, f(l, r), go(l, r));
		cout<<go(l,r)<<"\n";
	}
}
int main() {
	int kase = 1;
#if defined( xerxes_pc )
	if (!freopen("in1", "r", stdin))
		puts("error opening file in "), assert(0);
	kase = 1;
#endif
	fo(i,kase)
	{
		read();
		proc();
	}
	return 0;
}

